home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Tools / TWILIGHT / TL_SOURC.E / PASCAL / TL_INTER.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-11-27  |  1.9 KB  |  99 lines
  1.  
  2. { Dummy Unit ! Wird benötigt für die HauptUnit ! }
  3. { by Carsten Meyer @HH2                             }
  4.  
  5.  
  6. {$S-}                                 { Keine Überprüfung auf Stacküberlauf zur Laufzeit }
  7. {$L-}                                 { Lokale Symbole werden nicht abgelegt }
  8. {$V-}                                  { Strings als Var-Parameter dürfen unterschiedliche Länge haben }
  9. {$D-}                                  { Keine Debuginformation }
  10. {$I-}                                  { Benutzerprogramm prüft auf Fehler bei Ein-/Ausgabe }
  11.  
  12.  
  13. Unit tl_inter;                            { Name der Unit }
  14.  
  15. interface                                { öffentlicher Teil }
  16.  
  17. type 
  18.  
  19.  
  20.  
  21. LongFunc=function:longint;
  22. VoidFunc=procedure;
  23.  
  24. BITBLK=record
  25.     bi_pdata:^integer;
  26.     bi_wb:integer;
  27.     bi_hl:integer;
  28.     bi_x:integer;
  29.     bi_y:integer;
  30.     bi_color:integer;
  31. end;
  32.  
  33.  
  34. { ################################################################### }
  35. { Der Header...siehe Beiblatt zu Twilight                               }
  36. { ################################################################### }
  37.  
  38. INFO=
  39. record
  40.     tl_version:integer;
  41.     tl_handle:integer;
  42.     max_x:integer;
  43.     max_y:integer;
  44.     vscr_x:integer;
  45.     vscr_y:integer;
  46.     vscr_w:integer;
  47.     vscr_h:integer;
  48.     max_colors:integer;
  49.     palette:integer;
  50.     planes:integer;
  51.     raster_op:integer;
  52.     _cpu:longint; 
  53.     _fpu:longint;    
  54.     _mch:longint;
  55.     _snd:longint;
  56.     reserved:array[0..11]of integer;
  57.     tl_flags:integer;
  58. (*
  59. ** function pointers
  60. *)
  61.     tl_check:LongFunc;
  62.     tl_dim_col:VoidFunc;
  63.     tl_mod_time:LongFunc;
  64.     tl_aes_req:VoidFunc;
  65.     tl_scrn_rst:LongFunc;
  66. (*
  67. void cdecl (*tl_wait)(long);
  68. *)
  69. end;
  70.  
  71. INFO_PTR=^INFO;
  72. BITBLKPTR=^BITBLK;
  73. var
  74.     rs_bitblk:array[0..0]of BITBLK;
  75.  
  76.  
  77. procedure VDI;
  78. function ms200:longint;
  79. procedure MERKEDIR(x:longint);
  80.  
  81.  
  82. implementation                            { private definition }
  83. procedure vdi;
  84. begin
  85. end;
  86.  
  87.  
  88. function ms200:longint;
  89. begin
  90.     ms200:=0;
  91. end;
  92.  
  93. procedure MERKEDIR(x:longint);
  94. begin {dummy} end;
  95.  
  96. end.                                    { das wars }
  97.  
  98.  
  99.